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MODULE setacntng ( -000' 
SING_MODE (EXTERNAL = GENERAL, NONEXTERNAL=LONG_RELATIVE) 


I 
oe DDRES 
BEGIN 
' 


lee eee RRA R AA AEAAAERAAAAAAAAAAAAAEAAEREAAELERAAAAAAEAAAAAAAARAARERAEEAAEERAEEE 
' 


ie COPYRIGHT («) 1978, 1980, 1982, 1984 
ie DIGITAL EQU PRENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVE 


:* THIS SOFTWARE IS A gt UNDER A LICENSE AND MAY BE USED AND gt bt 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
F TH $ TWARE ANY OTHER 


; VA 
t* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TWARE IS HEREBY 


® 
® 
ad 
® 
* 
& 
® 
cg 
® 
® 
ie TRANSFERRED. * 
® 
* 
® 
® 
® 
® 
® 
® 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepohaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
PITTITIIIIIIII TILT TIIITIT TLL titiiii ii iitiititititiiiii iit ttt 
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} FACILITY: SET Command 


SSsossososoooooSooSossS 


ee ee ee ce ce ce a a ee ee a ee ee ee ed ed aed ed od od 
. 


33 i ABSTRACT: 
5 : This module implements the DCL command SET ACCOUNTING. 
33 ENVIRONMENT: 
4 0039 ; VAX/VMS operating system, user mode 
rt 0041 AUTHOR: Gerry Smith 15-Mar-1983 
r se : Modified by: 
45 5 : v03-003 pasooot David Solomon 09-Jul-1984 
? § : Fix truncation errors; make nonexternal refs. LONG_RELATIVE. 
rh 5 ew ye signal "9 iy hy SET T ACCOUNT/NEW. etn 1985 
0 50 : 
1 51 : v03-001 GASO144 Gerry Smith 22-Jun-1983 
§ 26 } Convert to new SNDJBC service. 
4 54 tee 


Soa Ne 


3 a te 


' 
' Include files 


' 
LIBRARY *SYSSLIBRARY:STARLET'; 
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AX-11 Oi ise 
CLIUTL.SRC 


' VAX/VMS common definitions 
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1b-se -1984 00:40:44 AX-11 Bliss-32 v4.0-74 P 
1 ~300n} 38% 90:48:48 CLIUTL.SRCISETACNING.B est. a (3h 


i Declare some storage for tables 


OWN 
option_string : yectoate) ’ ascii storage for 
INITIAL (ZASCID ENABLE’ , ! qualifiers 
ZASCID "DISABLE"), 
option_code : VECTOR(2) ! Corresponding codes 
INITIAL (s cB _stert eccount ing, 
sj)c$_stop_accounting), 


List the accounting types, in ASCII, and the corresponding bitmasks 


The pol loving tables contain data in a specific order, and that order 
is the S8ITPOSITION order of the ACM$V_ accounting types fields. If new 
accounting types are added to LIB:ACMDEF and SJCDEF, then corresponding 
entriesshould be added to the tables here. 

eeeeeeeNote that currently, the ACMSV_ fields 

start at bit position 0 and sre incremented by 1 

for each accounting type. If this changes in the 

future, it mey be necessary to change the way this 

module, specifically the logging part, is 


BSHVSAFAN-ASSSLISTFER 


‘oo 
— 


c$m_acct_detached, 
c$m_acct_batch, 
c$m_acct_network, 
c$m_acct_print, 
c$m_acct_message); 


ait a i a a at tk a a sd dt ts 4 as 


44 implemented. 
89 
90 acc_name : VECTOR(10) ! ASCII descriptors for 
91 INITIAL(ZASCID ‘PROCESS,', ! accounting categories 
38 ZASCID ‘IMAGE,' 
9 ZASCID ‘INTERACTIVE,'. 
9% ZASCID "LOGIN FAILURE, ", 
95 ZASCID ‘SUBPROCESS,', 
96 ZASCID ‘DETACHED,’, 
y ZASCID ‘BATCH,', 
92 ZASCID "NETWORK,", 
99 ZASCID ‘PRINT,', 
90 ZASCID "MESSAGE,"), 
34 acc_code : VECTOR(10) ! Corresponding masks 
0 INITIAL(s cfn_acct process. 
s)c$m_acct_image, 
5 S con_acce. interact ive. 
2 Com_acct log n_failure, 
34 sj]c$m_acct_subprocess, 
$ 
09 5 
10 5 
1 s 
s 
18 
14 


a a ss se ss 


— > 


St st 9 ss 4 tn ss ts tt tn st ts i a 
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} Table of contents 


FORWARD ROUTINE 
setSaccounting: NOVALUE, 
process_request : NOVALUE, 
send_request; 


' 
: Declare the accounting manager fiags in 


EXTERNAL 
exe$gl_acmflags; 
! 

: External routines 


EXTER ROUT INE 
strS$append 
cli$get_value, 
cli$present; 


' 
; Declare Literals defined elsewhere 


EXTERNAL LITERAL 
set$_accenab, 
set$_accdisab, 
set$_writeerr, 
set$_newfile 
set$_nonewf ile; 


16 
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Main module 9 SET ACCOUNTING 
lifiers 


! Process qua 
! Send request to acc. mgr. 


the exec 


Append one string to another 
Get value from CLI 
See if qualifier is present 


List currently enabled types 
Accounting now disabled 

Error modifying accntng. params 
New accounting file created 

New acc. file not created 


V4.0-74 
CNTNG.B352;1 
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GLOBAL ROUTINE set$accounting : NOVALUE = 
BEGIN 
'e¢ 
: Functional description 
This is the routine for the SET ACCOUNTING command. It is called 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


from the SET command presesees and enables/disables certain types 


of accounting, as well as starting a new accounting file. 


Inputs 
Non 


Outputs 
None 


PEARED BE 
WR "OOO NAOULS WO OONO 


LOCAL 
status 
og $ YTE, 
flags : ee tS 
buffer : VECTOR 43; 


! Status return 

! Tell whether to log or not 

! Flags to show what was done 

! Message buffer to send request 


! 
: See if logging is required. 
log = cliSpresent(ZASCID 'LOG'); 
If nepetniey is to be enabled, process the qualifiers, then request 
r 


the change from the accounting manager. If ae ig ig went wron 
e 


} 

' 

. 
: signal an error. Otherwise, if the operation is to logged, ‘sue 
i 

I 


an informational message. 
NCR i FROM 0 TO 1 DO 
TF cl tpeenenttcotten.seringt, 42 
BEGIN 
: Call the routine to determine what is to be enabled/disabled. 


flags = 0; ' Clear all flags 
process_request(.option_stringl.iJ], flags); ! See what to change 


ooo b+ 4 Seas SSNS PA DAUTIUIVIVIVIIUT 
SSLPSScssssZesr2es2ss Ses SR ES SANS RNS eS FS SSS NS 
OOOCCOCCOCOSCOCOOCOOOOOOOCOOCO OOOO OOOOOOOOOOOOOoOoOOoOo 
a ee kt et ot 2 2 2 as SY 


Oo a a ss 


SLESLSSELSEALANALS SSNS ASIANA SSSIFSAF 


VISSSVES 


: If nothing to set, then put a zero at the end of the itemlist. 

: IF - flags eat. 0 ! If no flags set, 
THEN buifer(0) = 0 ! then all done 

If there is something to enable/disable, then add another item to 

the itemlist, the accounting types. 


ELSE 


SOOOOOCOOOOOoOoOOeO 


Ronn] = 


18-$0-1984 00:40: PY 
12-808=1386 99:58; 


BEGIN 
buffer(0) = sic$.account ing.types*16 


4 AX-11 Oh reeszt 
5 RCJSET 


P V4.0-7% ° 
8  CCLIUTL. C ) age 8 


ACNTNG.B52;1 5) 


oo 
~ 


Accounting types 
are a longword 


] 
: If /LOG was specified, then display the current accounting types enabled. 


$8 ! 
' 

10 buffer(1) = flags: i located here 

11 buffer 3 = 0; ° ! no return length 
\¢ buffer = Q; ! end of list 

1 END; 
13 ; 
18 : Call the routine to actually send the request to the job controller. 
18 IF NOT (status = send_request(.option_codel.iJ, ! This is the function, 
19 buf fer)y ! this is the itemlist 
0 THEN 

1 BEGIN ! If an error, 

¢ SIGNAL(set$_writeerr, 1, ' tell user 

$ ZASCID ‘accounting parameters’, 

4 Status); 
25 RETURN; ! and go away 

26 END; 
sf END; 

8 
$2 

0 
=) 
3§ 


IF .log 
THEN 
BEGIN 
_— SBBLOCKCdsc$ bln] 
es : sc n), 
erat legs : BITVECTORES27; 
Sinit_dyndesc (types); 
acmflags = .exeSgl_acmflags; 
INCR i FROM 0 TO 9 DO 
IF .acmflagsl.iJ 
THEN BSrSappendttypes -acc_namel.i]); 
IF types dsc$w_lengt EQL 0 ! If nothing set, all disabled 
nee GNAL (set$_accdisab) 


ees tee 


' Place to build the types string 

! Temporary place for accntng. flags 
! Make a dynamic descriptor 

!' Get a copy of current settings. 


POPOPOPINOPONONIPONOPonoPononofnofnononys 


&erw 
WNC 0OnNOu 


at te 
* 


' Otherwise, were trailing "', 
BEGIN ! and oreo‘ ar enabled types 
typesldscSu_ length) = ,types(dsc$w_length] - 1; 

END 


POPPI PIPOI POPPI NIPINPINIPIPIPIPYPIPIPYPIPIPIPUPIPIPIPUPIPUPUPIPUIPIPIPIPIPIPOPINP 


PUSPATI Be BS BS BE BE EE EWN NWI III IAI PPD NININININDYD 2 I OO SS | OO 


NAL(set$_accenab, 1, types); 


END; 


MOPIMOPOPoNofonofoPononofnonys 
Fae 


If a new accounting file is requested, try to do that. If something went 
wrong, signal an error. Otherwise, if the operation is to be logged, 
issue an informational message. 


sgt‘ Mpresent (Snscre "NEW_FILE*) 


BEGIN 
buf ferl0 
buffer(1 
buf ferl2 
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“reeset ! Open a new file 


i: $71 

7 

7 

| 74 

I: $75 

| 

| 

| 

| 

| 

| 

| 

| 2c 

(00 2c 45 52 
00 
00 


but forts) « 


THEN SIGNAL (set$ Renout tie. 0, 


-Status 
ELSE I 09 
ha A Gilat set$_newfile); 
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RETURN; 
ND; 
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CO 00 2C 54 4E 
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oo 
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00 47 
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= 0; 
F NOT (Status = send _request(.option_code(0], 


CLIUTL.SR 


If an error, 


tell user 
: if /LOG, tell user 


-TITLE SETACNTNG 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 
wey sees 
wy Raat 
“ASCII Bee mS 

See 


“ASCHT Nii gmm 
. ESS P.AAH 
«ASCII MINTERACTIVE.\ 
~LONG 1769473 
eADDRESS P.AAJ 
eASCII = \LOGIN FAILURE, \<0><0> 
eLONG 17694734 
eAAL 
ASCII \SuBESOCESS.\<0> 
17694731 
. ESS P.AAN 
“feels 12694729 »\<0><0><0> 


DRESS P AAP 
oApClt \BATCH\ \<0><0> 


ESS PAA 
ni oe oN 
eADDRESS P.AA 
ASCII \LOG\<O> 


Ax-11 BLi fees -32 V 
CJSETAC 


su 


(61 72 61 70 20 67 GE 69 74 


% } 


45 4C 49 


i 
; 


00000000* 00000000° 00000000* 00000000' 


00000000" 00000000° 
00000020 00000010 00000008 00000004 


00000200 00000100 


| 


00000000v 


00000000° 00000000' 
0000001A 00000017 
00000000" 00000000' 


00000000" 00000000° 
00000002 00000001 


00000080 00000040 


o 
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of 
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oro 


08 
AE 00020004 
AE is 
1 AE 
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om 
~oCo—Cco-oO" 
QOmo—Luuv® 


rfeseont9ge 0934 


p08 P.AAY: 


e6 P.ABB: 
8 P.ABA: 


100 P.ABD: 
108 P.ABC: 
10¢ 


rrr 


degeze Ve 
CJSETACN 


AX-11 Bli 
CLiUTL” SR 


«LONG ot. 
«ADDRESS P.AAZ 
ASCII 


-LONG 17694741 
“ASCII 


NEU FILE 
tong. 17692728 
-ADDRESS P.ABD 
.PSECT SOWNS,NOEXE,2 


00000 OPTION. gets? 


00008 OPTION_C 
00010 ACC_NAME: 


$0088 ACC_CODE: 
00050 


Oooo 


SOCSOSOOOSOoOOSOOSOOOSOSOOOSOSOooOSoSoo 


1$: 


OOOCCCOCOCOCoooooscoe 


DDRESS P.AAA, P.AAC 
abe: 
23, 26 
-ADDRESS P.AAE, P.AAG, 


ing 882;1 


\accounting parameters\<0><0><0> 


P.AAI, P.AAK, P.AAM, = 


-AAO, P.AAQ, P.AAS, P.AAU, P.AAW 


~LONG 1, 2, 4, 8 16, 32, 64, 


$GL_ACMFLA 
SAPPEND 
ESENT 


=—4— 0m 
oe 


GS 
Pat VALUE 


CENAB 
Hi AB, sers WRITEERR 
$- ~NEUPILES SETS_RONEWF ILE 


s aang Save R2,R3,R4,R5,R6,R7,R8,- 


-PSECT SCODES$,NOWRT,2 
ENTRY 

MOVAB SEND REQUEST, R10 
MOVAB P.AAY, R 

MOVAB CLISPRESENT, R8 
MOVAB LIBSSIGNAL, R 


MOV OPTION STRING. R6 
SUBL2 #28, SP 
PUSHL 
CALLS #1, CLISPRESENT 
MOVE RO. LOG 
CLRL 
PUSHL OPTION TRINGCIJ 
CALLS #1, CLTSP RESENT 
BLBC =. «aRO, 
CLRL —s FLAGS 
PUSHAB FLAGS 
PUSHL OPTION STRINGCI) 
CALLS #2, PROCESS_REQUEST 
STL Acs 
EG 
CLAL FFER 
BRB 
MOVL #131076 BUFFER 
MOV LAGS PAY UF FER+4 
CLRQ 


128, 256, 512 


; Routine Size: 


“| 

A 

4 
4 
4 
9 


A 
7 000000006 aos 


AB } 
i seated * a 

53 000000006 ; 

OE 53 

10 A64 

046 =A 

000000006 99 0 

4 2 0 
08 

000000006 Ht 

7 1 

OF 

3 

E 

gt 

00000000G 8F 

7 03 

30. = AY 

50 

08 AE 00680000 8F 

OC AE 

14 «AE 

08 AE 

08 A 

6A 0 

54 

OE 4 

¢ 

000000006 8F 
67 08 


9 5 
000000006 ef 
67 1 


277 bytes, Routine Base: S$CODE$ + 0000 
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Www RMRNMNMMMMoO oO 
=SSLRmoewE—maonc> 


a 
o 
wr 


6c 12:08:88 Yetiutc’saeSs 


#SETS_WRITEERR 
#4, LIBSSIGNAL 


= 
v 


ACHELAGS, 6$ 
atc Cc NAM ahh 


is STRSAPPEND 


ayers ACCDISAB 
LIB$SIGNAL 


TYPES 

SP 

"1 

aseTs ACCENAB 

#3, LIBSSIGNAL 
#i, eae 
#6815744, BUFFER 
BUFFER+4 


BUFFER+12 
BUFFER 


U 
OPTION CODE 
ace SERD REQUEST 


s! TAT ris, . 
TUS 


| ETS_NONEWF ILE 
mene: 


a SUFILE 
LTB$SIGNAL 


“74 p 9 
6.832;1 ~ «si 
4 


tas, TYPES 
EXESGL_ACMFLAGS, ACMFLAGS 


Pe Se Se Ge Ge Ge ee Se Se Ge Se Se Fe Ge Fe Ge Se Se Se Se Be Fe Fe Ge Be Se Se Se Be Be Be Ge Se Ge Ge Se Se Se Se Be Ge Se Se Se Ge BeBe Se Se Bee 
o oo 
™m for 
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‘Sgyagus ySrseortes O0:une4u  yaReHt BLisg=S7 4e0e742, Page 10 


7 OUTINE process_request (option, flags) : NOVALUE = 

oe 3 BeUTANE P ” de ¥ ° 

74 

75 '4¢ 

6 , PUnctronet description 

4 This routine collects the qualifiers to indicate what types 


is set in the FLAGS word. 
i Inputs 


OPTION = address of descriptor for operation (ENABLE or DISABLE) 
FLAGS = longword bitmask describing what was set 


| 
: 
[3 | 
E | 
3 ; of accounting data to enable or disable. A corresponding bit 
: } 
; at 
: 5 i Outputs 
; es : FLAGS = bitmask set to indicate what was requested 
: 0290 lecoe 
; 296 0291 
; 0 4 LOCAL 
: ° desc : SBBLOCKCdsc$c_s_bini; ! CLI value descriptor 
3 00 36 Sinit_dyndesc (desc); ! Make the descriptor dynamic 
; 029 
; : 0298 i For each accounting category specified by the user, OR in the corresponding 
; 0 44 bitmask to the flags longword. 
; 01 WHILE cl iSget_ value(.option, desc) DO 
3 0 8 BEGIN 
; 08 030 INCR i FROM 0 TO 9 DO 
; 309 0304 4 accin 
; 310 0305 4 BIN = nameCl.i] 
3 31) 0306 4 IF CHSEOL (. gisetaeeR tenginy. 4 y= # dsc$a_pointer], 
; \¢ 0307 4 dsc$w_length], .namel1)) 
s 51 8 08 4 THEN EXITLOOP ( - flags= flags OR .acc_codel.i]); 
2 314 09 END; 
: 315 0310 END; 
: i$ 8 13 RETURN; 
; 318 $318 END; ° 
001C 00000 PROCESS_REQUEST: 
| s — ny Save R2,R3,R4 ; 0272 
0200090 gr DD g Puehe 34471936 ; 0295 
4 AE D4 CLRL DESC +4 3 
5E DD 1$ PUSHL ; 0301 
04 AC DD PUSHL OPTION : 
000000006 99 ; 4 \; grits aoe fLISGET VALUE ; 
4 04 0001D CLRL ‘ : 0306 
' 
| 
| 
| 


_———— 


ee a ——- _ 


avon CREME MEMES HOUSER 


50 00000000'EF44 D0 o001F 28: MOVL. ACC_NAMECIJ, RO : 0305 

04 80 06 BE 6c 29 0027 cHECS DEST, @DESC+4, @4(RO) + 0306 
08 BC 00000000"EF 44 ts 3 F B1SL2 ACC_CODECIJ, aFLAGS : 0308 

E1 54 09 F3 0003A 3$: AOBLEQ #9, I, 2$ + 0303 

CE 13 0005E BRB 1$ + 0301 

04 00040 4$ RET + 0313 


; Routine Size: 65 bytes, Routine Base: SCODES + 0115 
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vv 


3; Routine Size: 


i 


1 
1Sseoctgge 09:40:44 


1 Rout ANE send_request (function, buffer) = 


oo 


obtains a status return. 


i Outputs 
‘ Final status is returned. 


LOCAL 
status, 
iosb : VECTOR(2); 


' 
: Send the request to the accounting manager. 


AX-11 Bliss-32 
CLIUTL.SRCJSETA 


This routine sends the request to the accounting manager, and 


1 

j 

4 

! Inputs 

' FUNCTION = function to perform = start, stop accounting 
BUFFER = message buffer to send to the acc. manager. 

' 

1 


: status = SSNDJBCW(FUNC = .function, 
ITMLST = buffer, 
0 10SB = iosb); 
1 If .status 
4 ; THEN status = .iosb(0); 
0344 RETURN .status; ' Return the final status 
0345 END; 
eEXTRN SYSSSNDJBCW 
0000 00000 SEND_REQUEST: 
ey save nothing 
5E 8 ce 000 SUBL #8, SP 
—€ 7C 999 CLRO. = = ¢ §P) 
08 AE 9F PUSHAB 10SB 
C 0D OA PUSHL BUFFER 
E D4 $0 CLRL -(SP) 
64 ac OD F PUSHL FUNCTION 
rf 04 12 CLRL -(SP 
000000006 9 9 4 14 CALLS 4&7, SYSSSNDJBCW 
0 €9 00018 BLBC TATUS, 1$ 
0 bE Bo O1F MOVL  10SB, STATUS 
4 21 1$: RET 


34 bytes, Routine Base: SCODE$S + 0156 


V4 .0-74 p 
NTNG-B82;1 a 


3 0514 


ooo 
SES 
vin 


prot 


gage 


END 
0 ELUDOM 


O89 


COMMAND QUALIFIERS 


3 dg F 


; Run 
" dha ttaes 
; hey B- Min: 


; Compil Us A Ry "0" vind 
; Compilation Complete 


at 98. ; 368 data bytes 


——_—— ERS SSS sesh sss nse ssh se sna: 
SeGe Se Sete tee Se ee @eee Ge Be Ge Ge eee 


H 1 
16-8 Sep 
14-§ Sep- 


AX-11 Bli 
CLIUTL.SR 


0-74 
NTNG.852;1 


“198s 98:68:44 


RESSETACNT tne 


~EXTRN LIBSSIGNAL 


: PSECT SUMMARY 
3 Name Bytes Attributes 
: SPLITS ere moves eNOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SOWNS WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 SCODES 3 3 NOVEE. ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
oneneuae Syabol$ oco-e--- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 26 0 581 00:01.0 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETACNTNG/OBJ=0B/$:SETACNTNG MSRCS$:SETACNTNG/UPDATE=(ENHS: SETACNTNG) 


005] SH BT13A-SE | DIG T CORPORATION 
VVJL VAX/VMS V4.0 TAL -AND PROPRIETARY 


ENT CORPORATION 
ND PROPRIETARY 


PM 


AH-BT13A-SE IPh 
LA 


VAX/VMS V4.0 


DI U 
CO A 


Q 


GITAL E 
NF IDENT 


0052 


